home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 25
/
Cream of the Crop 25.iso
/
comm
/
ect32250.zip
/
ECTOOL32.EX_
/
0
/
RCDATA
/
TEDITORDIALOG
/
TEDITORDIALOG.txt
Wrap
Text File
|
1997-04-19
|
10KB
|
425 lines
object EditorDialog: TEditorDialog
Left = 11
Top = 4
Hint = 'Message Editor'
BorderStyle = bsDialog
Caption = 'Message Editor'
ClientHeight = 438
ClientWidth = 611
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Position = poScreenCenter
Scaled = False
OnActivate = FormActivate
OnCreate = FormCreate
PixelsPerInch = 120
TextHeight = 13
object Memo1: TRichEdit
Left = 8
Top = 160
Width = 593
Height = 257
TabStop = False
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Courier New'
Font.Style = []
Lines.Strings = (
'Memo1')
ParentFont = False
ScrollBars = ssVertical
TabOrder = 0
WantTabs = True
end
object HintPanel: TStatusBar
Left = 0
Top = 421
Width = 611
Height = 17
Panels = <
item
Width = 500
end>
SimplePanel = False
end
object Panel1: TPanel
Left = 8
Top = 8
Width = 593
Height = 113
BevelOuter = bvLowered
TabOrder = 2
object Label4: TLabel
Left = 32
Top = 16
Width = 31
Height = 13
Caption = 'Mail to'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 25
Top = 40
Width = 38
Height = 13
Caption = 'Address'
FocusControl = EditAddress
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 27
Top = 64
Width = 36
Height = 13
Caption = 'Subject'
FocusControl = EditSubject
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label1: TLabel
Left = 384
Top = 8
Width = 64
Height = 13
Caption = 'Carbon Copy '
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 384
Top = 58
Width = 59
Height = 13
Caption = 'Attachments'
end
object EditRecipient: TEdit
Left = 72
Top = 16
Width = 217
Height = 21
Hint = 'The recipient email address'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
Text = 'EditRecipient'
end
object addressbutton: TButton
Left = 296
Top = 16
Width = 17
Height = 41
Hint = 'Open the address book'
Caption = '?'
TabOrder = 1
OnClick = addressbuttonClick
end
object EditAddress: TEdit
Left = 72
Top = 40
Width = 217
Height = 21
Hint = 'The recipient email address'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
Text = 'EditAddress'
end
object EditSubject: TEdit
Left = 72
Top = 64
Width = 217
Height = 21
Hint = 'The subject of the message'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
Text = 'EditSubject'
end
object EditSignature: TCheckBox
Left = 72
Top = 88
Width = 89
Height = 17
Hint = 'If check, the program add your signature'
Caption = 'Add Signature'
TabOrder = 4
end
object EditSaveCopy: TCheckBox
Left = 184
Top = 88
Width = 89
Height = 17
Hint = 'If checked a copy will be saved after sending'
Caption = 'Save a copy'
State = cbChecked
TabOrder = 5
end
object AttachGameButton: TButton
Left = 328
Top = 72
Width = 49
Height = 33
Hint = 'Attach the current ECT file (game) to the message'
Caption = 'Game >'
TabOrder = 6
OnClick = AttachGameButtonClick
end
object EditCarbonCopy: TListBox
Left = 384
Top = 24
Width = 137
Height = 33
Hint = 'List of additional recipients'
TabStop = False
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
ParentFont = False
TabOrder = 7
end
object FindCarbonCopyButton: TButton
Left = 528
Top = 24
Width = 33
Height = 17
Hint = 'Open the address book'
Caption = '?'
ParentShowHint = False
ShowHint = True
TabOrder = 8
OnClick = FindCarbonCopyButtonClick
end
object ClearCarbonCopyButton: TButton
Left = 528
Top = 40
Width = 33
Height = 17
Hint = 'Clear the carbon copy list'
Caption = 'Clear'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 9
OnClick = ClearCarbonCopyButtonClick
end
object EditAttachments: TListBox
Left = 384
Top = 72
Width = 137
Height = 33
Hint = 'List of files attached to the message'
TabStop = False
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
ParentFont = False
TabOrder = 10
end
object FindAttachmentsbutton: TButton
Left = 528
Top = 72
Width = 33
Height = 17
Hint = 'Open a file select dialog'
Caption = '?'
TabOrder = 11
OnClick = FindAttachmentsbuttonClick
end
object ClearAttachmentsButton: TButton
Left = 528
Top = 88
Width = 33
Height = 17
Hint = 'Clear the attachments list'
Caption = 'Clear'
TabOrder = 12
OnClick = ClearAttachmentsButtonClick
end
end
object Panel2: TPanel
Left = 72
Top = 128
Width = 449
Height = 25
BevelInner = bvLowered
BevelOuter = bvNone
Caption = 'Panel2'
TabOrder = 3
object CutToClipboardButton: TButton
Left = 0
Top = 0
Width = 57
Height = 25
Hint =
'Cut the selected text to clipboard. If nothing is selected the c' +
'ut the whole message'
Caption = 'Cu&t'
ParentShowHint = False
ShowHint = True
TabOrder = 0
TabStop = False
OnClick = CutToClipboardButtonClick
end
object PasteFromClipboardButton: TButton
Left = 56
Top = 0
Width = 57
Height = 25
Hint = 'Insert the text of the clipboard'
Caption = '&Paste'
ParentShowHint = False
ShowHint = True
TabOrder = 1
TabStop = False
OnClick = PasteFromClipboardButtonClick
end
object CopyToClipboardButton: TButton
Left = 112
Top = 0
Width = 57
Height = 25
Hint =
'Copy the text of message to the clipboard. If nothig selected, a' +
'll the message is copied'
Caption = 'C&opy'
ParentShowHint = False
ShowHint = True
TabOrder = 2
TabStop = False
OnClick = CopyToClipboardButtonClick
end
object MergeButton: TButton
Left = 168
Top = 0
Width = 57
Height = 25
Hint = 'Add another game to this message'
Caption = '&Merge'
ParentShowHint = False
ShowHint = True
TabOrder = 3
TabStop = False
OnClick = MergeButtonClick
end
object PrintButton: TButton
Left = 224
Top = 0
Width = 57
Height = 25
Hint = 'Print the message'
Caption = 'P&rint'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 4
TabStop = False
OnClick = PrintButtonClick
end
object SaveButton: TButton
Left = 280
Top = 0
Width = 57
Height = 25
Hint = 'Save the message to a text file'
Caption = '&Save '
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 5
TabStop = False
OnClick = SaveToDiskButtonClick
end
object QueueButton: TButton
Left = 336
Top = 0
Width = 57
Height = 25
Hint = 'Put this message in the queue'
Caption = '&Queue'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 6
TabStop = False
OnClick = QueueButtonClick
end
object ExitButton: TButton
Left = 392
Top = 0
Width = 57
Height = 25
Hint = 'Discard the message and close the editor'
Caption = '&Close'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 7
TabStop = False
OnClick = ExitButtonClick
end
end
object SaveDialog: TSaveDialog
FileEditStyle = fsEdit
Left = 472
Top = 208
end
object OpenDialog1: TOpenDialog
FileEditStyle = fsEdit
Left = 496
Top = 168
end
object msMessage: TmsMessage
ContentType = 'text/plain'
ReturnReceipt = False
Left = 528
Top = 168
end
end